home *** CD-ROM | disk | FTP | other *** search
/ Magic Disk 64 / Magic_Disk_64_92-01_1992_-_de_Side_B.d64 / pro register c64 (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  4KB  |  175 lines
  1. 20 poke53280,14:poke53281,6
  2. 25 poke53272,23:printchr$(8)
  3. 140 rem
  4. 150 rem
  5. 160 print"[147][208]ro [210]egister 64 ([214]1.2)
  6. 161 [153]"chr$erman version"
  7. 162 [153]"lenopyright (NULL).asc.left$. 1990"
  8. 163 [153]"(atn)=atnnleitungn"
  9. 164 [153]"(asc)=ascortfahren"
  10. 225 [143]
  11. 230 [161]q$:[139]q$[178]""[167]230
  12. 240 [139]q$[178]"a"[167][137]600
  13. 250 [139]q$[178]"f"[167][137]1000
  14. 260 [137]230
  15. 600 [143]
  16. 610 [153]"loadatnnleitung:"
  17. 612 [153]"tab(tab(tab(tab(tab(tab(tab(tab(tab(tab("
  18. 613 [153]"str$ieses (NULL)rogram ist sehr einfach zu be-"
  19. 614 [153]"dienen, lediglich folgendes sollten (NULL)ie"
  20. 615 [153]"beachten:"
  21. 616 [153]"1:(NULL)m eine gewaehlte (NULL)ption zu beenden,"
  22. 617 [153]"  schreiben (NULL)ie 'schluss' oder 's'."
  23. 619 [153]"2:(NULL)ur der erste peekuchstabe ist notwendig,"
  24. 620 [153]"  wenn (NULL)ie einen (NULL)osten korrigieren"
  25. 621 [153]"  wollen."
  26. 660 [153]"3:peekei der '>'-(NULL)arke ist ein (NULL)osten zu"
  27. 670 [153]"  schreiben und die ':'-(NULL)arke zeigt den"
  28. 680 [153]"  geschriebenen (NULL)osten an."
  29. 690 [153]"4:(NULL)ie konnen mit mehr als 1000 (NULL)osten"
  30. 691 [153]"  gleichzeitig arbeiten."
  31. 695 [153]"   - (asc)ortfahren oder (atn)nleitung -"
  32. 700 [156]:[137]230
  33. 1000 qw[178] 1 :mx[178] 1185
  34. 1003 [131]name,tel
  35. 1006 [134]a$( 1,mx),a%(mx)
  36. 1009 [159]4,3:[159]7,0:[129]i[178]0[164]qw:[135]a$(i,0):[130]
  37. 1012 [141]1390
  38. 1015 [151]53272,23
  39. 1018 [153]"load(NULL)ro (NULL)egister 64 (NULL)am="me"(NULL)echner="an
  40. 1021 [153]"tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab("
  41. 1024 [153]"oncont 1=(NULL)osten schaffen 2=(NULL)osten korrigieren"
  42. 1027 [153]" 3=(NULL)osten loesch.  4=(NULL).(NULL)ortieren"
  43. 1030 [153]" 5=(NULL)osten ansehen  6=(NULL)osten laden"
  44. 1033 [153]" 7=(NULL)osten speich.  8=(NULL)rg. beenden"
  45. 1036 [153]"tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab("
  46. 1039 [141]1285:ru[178][197](a$)
  47. 1042 [139]ru[178]8[167][153]"on(NULL)rogram beenden":[141]1354:[139]a$[178]"j"[167][158]64738
  48. 1045 [139]ru[179]1[176]ru[177]8[137]1039
  49. 1048 x0[178]0:[145]ru[141]1054,1075,1093,1117,1156,1219,1252
  50. 1051 [137]1012
  51. 1054 j[178]an:[137]1066
  52. 1057 [139]a%(j)[178]0[167]a%(j)[178]j
  53. 1060 [141]1375:[139]x0[137]1072
  54. 1063 [141]1291:[139]a$[178]"n"[167]1060
  55. 1066 j[178]j[170]1:[139]j[179][178]mx[137]1057
  56. 1069 [141]1360
  57. 1072 an[178]j[171]1:[142]
  58. 1075 [153]"(NULL)osten korrigieren"
  59. 1078 [139]an[178]0[167][141]1327:[142]
  60. 1081 [141]1363:[139][168]ok[137]1081
  61. 1084 [139]x0[167][142]
  62. 1087 [141]1291:[139]a$[178]"j"[137]1075
  63. 1090 [141]1375:[137]1087
  64. 1093 [153]"(NULL)osten loeschen"
  65. 1096 [139]an[178]0[167][141]1327:[142]
  66. 1099 [141]1363:[139][168]ok[137]1099
  67. 1102 [139]x0[167][142]
  68. 1105 [141]1291:[139]a$[178]"n"[137]1093
  69. 1108 [153]">chr$eloescht!":an[178]an[171]1
  70. 1111 a[178]a%(j):[129]k[178]j[164]an:a%(k)[178]a%(k[170]1):[130]:a%(k)[178]a
  71. 1114 [137]1093
  72. 1117 [153]"on(NULL)osten sortieren"
  73. 1120 [139]an[178]0[167][141]1327:[142]
  74. 1123 [129]i[178]0[164]qw:[153]i;"cmd)closeclose"a$(i,0):[130]
  75. 1126 [153]"peekasierend auf:0cmd";:[132]7,a$:[153]
  76. 1129 k[178][197](a$)
  77. 1132 [139]k[179]0[176]k[177]qw[167][153]"onononon":[137]1126
  78. 1135 g[178]an
  79. 1138 [139]g[179][178]1[167][142]
  80. 1141 g[178][181](g[173]2):m[178]an[171]g
  81. 1144 f[178]0:[129]j[178]1[164]m:p[178]j[170]g:[139]a$(k,a%(j))[179][178]a$(k,a%(p))[137]1150
  82. 1147 a[178]a%(j):a%(j)[178]a%(p):a%(p)[178]a:f[178]1
  83. 1150 [130]:[139]f[177]0[137]1144
  84. 1153 [137]1138
  85. 1156 [153]"on(NULL)osten ansehen"
  86. 1159 [139]an[178]0[167][141]1327:[142]
  87. 1162 [141]1294
  88. 1165 [139]a$[179][177]"j"[167][142]
  89. 1168 s[178]0:x[178]an
  90. 1171 [153]"((NULL))chirm":[153]"(str$)rucker"
  91. 1174 [141]1285:e[178]1:[139]a$[178]"d"[167]e[178]2
  92. 1177 [153]""
  93. 1180 [139]e[178]2[167][153]"load-(NULL)val(NULL)(NULL)(NULL)(NULL)- atnbschliesen":[160]4:[159]4,4
  94. 1183 [129]k[178]1[164]x:j[178]k
  95. 1186 [129]i[178]0[164]qw
  96. 1189 [152]4,a$(i,0)": "a$(i,a%(j))
  97. 1192 [130]
  98. 1195 [139]e[178]1[167][141]1285
  99. 1198 [139]a$[178][199](13)[167]i[178]qw:k[178]x:j[178]k:[142]
  100. 1201 [139]e[178]1[167][153]"ononon":[141]1411
  101. 1204 [139]e[178]2[175][194](197)[178]15[167]i[178]qw:k[178]x:j[178]k:[160]4:[159]4,3:[142]
  102. 1207 [139]e[178]2[167][152]4:[152]4
  103. 1210 [130]
  104. 1213 [160]4:[159]4,3
  105. 1216 [142]
  106. 1219 j[178]an[170]1
  107. 1222 [153]"on(NULL)osten laden"
  108. 1225 [153]"ascile (NULL)ame: ";:[132]7,f$:[153]
  109. 1228 [141]1351:[139]no[178]1[167]no[178]0:[142]
  110. 1231 [141]1396:[139]b[178]1[167]1237
  111. 1234 [159]1,8,2,f$[170]",s,r":[132]1,k:an[178]an[170]k:[137]1240
  112. 1237 [159]1,1,0,f$:[132]1,k:an[178]an[170]k
  113. 1240 [139]an[177]mx[167][141]1360:[142]
  114. 1243 [129]k[178]j[164]an:[139]a%(k)[178]0[167]a%(k)[178]k
  115. 1246 [129]i[178]0[164]qw
  116. 1249 [132]1,a$(i,a%(k)):[130]:[130]:[160]1:[142]
  117. 1252 [153]"on(NULL)osten speichern"
  118. 1255 [139]an[177]0[137]1261
  119. 1258 [141]1327:[142]
  120. 1261 [153]"ascile (NULL)ame: ";:[132]7,f$:[153]
  121. 1264 [141]1351:[139]no[178]1[167]no[178]0:[142]
  122. 1267 [141]1396:[139]b[178]1[167]1273
  123. 1270 [159]1,8,3,"@:"[170]f$[170]",s,w":[152]1,an:[137]1276
  124. 1273 [159]1,1,1,f$:[152]1,[196](an)[199](13);
  125. 1276 [129]k[178]1[164]an:[129]i[178]0[164]qw
  126. 1279 [152]1,a$(i,a%(k))[199](13);:[130]:[130]:[160]1:[142]
  127. 1282 [139]a$[179][177]"j"[167][142]
  128. 1285 [161]a$:[139]a$[178]""[137]1285
  129. 1288 [142]
  130. 1291 [153]"ononon":[129]i[178]0[164]qw:[153]a$(i,0)": ";a$(i,a%(j)):[130]
  131. 1294 [153]"-(NULL)orrekt (mid$/(NULL))-                        "
  132. 1297 [141]1285:[153]"on               closeonon"
  133. 1300 [139]a$[179][177]"j"[175]a$[179][177]"n"[167][153]"on":[137]1294
  134. 1303 [142]
  135. 1306 ok[178][171]1:[129]j[178]1[164]an
  136. 1309 [139][200](a$(0,a%(j)),[195](a$))[178]a$[137]1324
  137. 1312 [130]:ok[178]1
  138. 1315 [139]ru[179][177]5[167][153]""a$" valxistiert (NULL)icht!           ":[137]1324
  139. 1318 [153]""a$" valxistiert (NULL)icht!on":[129]j[178]1[164]2000:[130]
  140. 1321 [153]"                  onononon"
  141. 1324 [142]
  142. 1327 [153]"-str$atn(NULL)atn fehlt-"
  143. 1330 [129]k[178]1[164]2000:[130]:[153]"on                                    onononononon":[142]
  144. 1333 ok[178][171]1:[139]ru[178]2[167][129]k[178]1[164]an:[137]1342
  145. 1336 [139]j[178]1[176]i[177]0[167][142]
  146. 1339 [129]k[178]1[164]j[171]1
  147. 1342 [139]a$(0,a%(k))[179][177]a$[167][130]:[142]
  148. 1345 [139]k[178]j[167]k[178]k[170]1:[137]1342
  149. 1348 ok[178]1:[153]""a$" valxistiert schon!":[137]1330
  150. 1351 [153]"atnlles (NULL)k!"
  151. 1354 [141]1294:[139]a$[178]"n"[167]no[178]1
  152. 1357 [142]
  153. 1360 [153]"(NULL)aximum"mx[170]1"(NULL)osten":[137]1330
  154. 1363 [153]"valnter "a$(0,0);
  155. 1366 [153]"> ";:[132]7,a$:[153]""
  156. 1369 [139]a$[178]"schluss"[176]a$[178]"s"[167]x0[178]1:[142]
  157. 1372 [137]1306
  158. 1375 [153]"":[129]i[178]0[164]qw
  159. 1378 [153]a$(i,0)"> ";:[132]7,a$:[153]
  160. 1381 [139]a$[178]"schluss"[176]a$[178]"s"[167]x0[178]1:[142]
  161. 1384 [141]1333:[139][168]ok[137]1378
  162. 1387 a$(i,a%(j))[178]a$:[130]:[142]
  163. 1390 me[178]256[172]([194](52)[171][194](50))[170][194](51)[171][194](49)
  164. 1393 w[178]me[170]635:[142]
  165. 1396 [153]"(str$)iskette oder ((NULL))ape"
  166. 1399 [153]"str$cmd";:[132]7,a$:[153]
  167. 1402 [139]a$[178]"t"[167]b[178]1:[137]1408
  168. 1405 b[178]0
  169. 1408 [142]
  170. 1411 [153]"                                       "
  171. 1414 [153]"                                       "
  172. 1417 [153]"                                       "
  173. 1420 [153]"                                       onononon"
  174. 1423 [142]
  175.